home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / DATABASE / S9301.ZIP;1 / RUBEL.ZIP / W_TEST.PRG < prev   
Encoding:
Text File  |  1992-12-10  |  295 b   |  27 lines
  1. PROCEDURE w_test
  2.  
  3. DEFINE WINDOW win_1 FROM 01,01 TO 05,20
  4. ACTIVATE WINDOW win_1
  5. ACTIVATE SCREEN
  6.  
  7. DO w_test1
  8.  
  9. ? date()
  10.  
  11. ********
  12.  
  13. PROCEDURE w_test1
  14.  
  15. DEFINE WINDOW win_2 FROM 10,01 TO 15,20
  16. ACTIVATE WINDOW win_2
  17.  
  18. junk = inkey(3)
  19.  
  20. RELEASE WINDOW win_2
  21.  
  22. RETURN
  23.  
  24. ********
  25.  
  26.  
  27.